home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1986 August
/
64er_Magazin_86-08_1986_Markt__Technik_de_Side_A.d64
/
listing 1.(allg)
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
242b
|
13 lines
5 rem -------- trans 0 ----------------
10 data 0,0,15,0,15,9,7,5,13,0,9
20 dim x(6),y(6)
30 for i=1 to 5 : read x(i),y(i) : next
40 x(6)=x(1) : y(6)=y(1)
50 init
60 start
70 for i=1 to 5
80 :line(x(i),y(i),x(i+1),y(i+1))
90 next
100 show
110 normal